home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue29 / survive / Client1A.dfm / Client1A.txt
Encoding:
Text File  |  1997-11-19  |  4.2 KB  |  190 lines
  1. object frmMain: TfrmMain
  2.   Left = 200
  3.   Top = 108
  4.   Width = 503
  5.   Height = 420
  6.   Caption = 'Keyword Searching Client Test App'
  7.   Font.Charset = DEFAULT_CHARSET
  8.   Font.Color = clWindowText
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   OnCreate = FormCreate
  13.   PixelsPerInch = 96
  14.   TextHeight = 13
  15.   object Label1: TLabel
  16.     Left = 8
  17.     Top = 20
  18.     Width = 31
  19.     Height = 13
  20.     Caption = '&Query:'
  21.     FocusControl = edtQuery
  22.   end
  23.   object lblResults: TLabel
  24.     Left = 8
  25.     Top = 88
  26.     Width = 38
  27.     Height = 13
  28.     Caption = '&Results:'
  29.   end
  30.   object lblDocHeader: TLabel
  31.     Left = 8
  32.     Top = 241
  33.     Width = 433
  34.     Height = 13
  35.     AutoSize = False
  36.   end
  37.   object grdMatches: TDBGrid
  38.     Left = 8
  39.     Top = 112
  40.     Width = 481
  41.     Height = 113
  42.     DataSource = dsQueryResults
  43.     Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
  44.     TabOrder = 8
  45.     TitleFont.Charset = DEFAULT_CHARSET
  46.     TitleFont.Color = clWindowText
  47.     TitleFont.Height = -11
  48.     TitleFont.Name = 'MS Sans Serif'
  49.     TitleFont.Style = []
  50.     OnDblClick = grdMatchesDblClick
  51.   end
  52.   object memDocument: TDBMemo
  53.     Left = 8
  54.     Top = 257
  55.     Width = 481
  56.     Height = 131
  57.     DataField = 'Notes'
  58.     DataSource = dsSingleRecord
  59.     ScrollBars = ssVertical
  60.     TabOrder = 9
  61.   end
  62.   object navMatches: TDBNavigator
  63.     Left = 56
  64.     Top = 83
  65.     Width = 96
  66.     Height = 25
  67.     DataSource = dsQueryResults
  68.     VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
  69.     TabOrder = 6
  70.   end
  71.   object edtQuery: TEdit
  72.     Left = 56
  73.     Top = 16
  74.     Width = 249
  75.     Height = 21
  76.     TabOrder = 0
  77.   end
  78.   object btnSearch1: TButton
  79.     Left = 318
  80.     Top = 14
  81.     Width = 171
  82.     Height = 25
  83.     Caption = 'Single Word Search w/ Operators'
  84.     TabOrder = 4
  85.     OnClick = btnSearch1Click
  86.   end
  87.   object memSQL: TMemo
  88.     Left = 48
  89.     Top = 120
  90.     Width = 417
  91.     Height = 97
  92.     Font.Charset = DEFAULT_CHARSET
  93.     Font.Color = clWindowText
  94.     Font.Height = -11
  95.     Font.Name = 'Courier New'
  96.     Font.Style = []
  97.     ParentFont = False
  98.     ScrollBars = ssBoth
  99.     TabOrder = 7
  100.     Visible = False
  101.   end
  102.   object btnSearch2: TButton
  103.     Left = 318
  104.     Top = 44
  105.     Width = 171
  106.     Height = 25
  107.     Caption = 'Multi Word Search, No Operators'
  108.     Enabled = False
  109.     TabOrder = 5
  110.     OnClick = btnSearch2Click
  111.   end
  112.   object chkViewSQL: TCheckBox
  113.     Left = 56
  114.     Top = 44
  115.     Width = 73
  116.     Height = 17
  117.     Caption = '&View SQL'
  118.     TabOrder = 1
  119.     OnClick = chkViewSQLClick
  120.   end
  121.   object radIndex1: TRadioButton
  122.     Left = 176
  123.     Top = 44
  124.     Width = 113
  125.     Height = 17
  126.     Caption = 'Use BiolifeIdx1'
  127.     Checked = True
  128.     TabOrder = 2
  129.     TabStop = True
  130.     OnClick = radIndex1Click
  131.   end
  132.   object radIndex2: TRadioButton
  133.     Left = 176
  134.     Top = 64
  135.     Width = 113
  136.     Height = 17
  137.     Caption = 'Use BiolifeIdx2'
  138.     TabOrder = 3
  139.     OnClick = radIndex2Click
  140.   end
  141.   object dbMain: TDatabase
  142.     AliasName = 'DBDEMOS'
  143.     Connected = True
  144.     DatabaseName = 'AppDb'
  145.     LoginPrompt = False
  146.     Params.Strings = (
  147.       'USERNAME=SA'
  148.       'PASSWORD=')
  149.     SessionName = 'Default'
  150.     Left = 64
  151.   end
  152.   object dsQueryResults: TDataSource
  153.     DataSet = qryGetQueryResults
  154.     Left = 128
  155.   end
  156.   object qryGetQueryResults: TQuery
  157.     Active = True
  158.     DatabaseName = 'AppDb'
  159.     SQL.Strings = (
  160.       'SELECT * FROM Biolife WHERE BIOLIFE."Species No" IS NULL')
  161.     Left = 96
  162.     object qryGetQueryResultsSpeciesNo: TFloatField
  163.       FieldName = 'Species No'
  164.       Origin = '"BIOLIFE.DB".Species No'
  165.     end
  166.     object qryGetQueryResultsCommon_Name: TStringField
  167.       DisplayLabel = 'Common Name'
  168.       FieldName = 'Common_Name'
  169.       Origin = '"BIOLIFE.DB".Common_Name'
  170.       Size = 30
  171.     end
  172.     object qryGetQueryResultsSpeciesName: TStringField
  173.       FieldName = 'Species Name'
  174.       Origin = '"BIOLIFE.DB".Species Name'
  175.       Size = 40
  176.     end
  177.   end
  178.   object qryGetSingleRecord: TQuery
  179.     DatabaseName = 'AppDb'
  180.     SQL.Strings = (
  181.       'SELECT * FROM Biolife WHERE Biolife."Species No" = :SpeciesNo')
  182.     Params.Data = {0100010009537065636965734E6F0006080000000000000000000000}
  183.     Left = 160
  184.   end
  185.   object dsSingleRecord: TDataSource
  186.     DataSet = qryGetSingleRecord
  187.     Left = 192
  188.   end
  189. end
  190.